home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 5 / BBS in a Box -Volume V (BBS in a Box) (April 1992).iso / Files / Tele / T / TKProc.cpt / *.PROC's / Date_Time next >
Encoding:
Text File  |  1991-08-21  |  1.4 KB  |  82 lines
  1. (Date/Time.PROC)
  2. (SCREEN OFF    -Optional-    Don't forget SCREEN ON after SCREEN OFF)
  3. COPYINTO W$,Date/Time
  4. COPYINTO X$,The Time is: 
  5. ERASE Y$
  6. ERASE Z$
  7.  
  8. (Create a small Window, center screen)
  9. CUWOPEN2 0,0,40,240
  10.  
  11. (We come back to here after the first pass)
  12. :LOOPSTART
  13.  
  14. (Get Date/Time into Y$ string... )
  15. TIMEDATE Y$
  16.  
  17. (Here the first space is a "space" the next six spaces are "HardSpaces",)
  18. (or "OPTION/SPACE BAR", in order to force a line wrap after the Date.)
  19. COPYINTO Z$,       Today is 
  20.  
  21. (Get the Day of the week... )
  22. GETGLOBAL A%,11
  23.  
  24. (Find out what day of the week it is... )
  25. TEST A% = 1
  26. IF NO JUMPTO MO
  27. CONCAT Z$,Sunday
  28. JUMPTO CONTINUE
  29.  
  30. :MO
  31. TEST A% = 2
  32. IF NO JUMPTO TU
  33. CONCAT Z$,Monday
  34. JUMPTO CONTINUE
  35.  
  36. :TU
  37. TEST A% = 3
  38. IF NO JUMPTO WE
  39. CONCAT Z$,Tuesday
  40. JUMPTO CONTINUE
  41.  
  42. :WE
  43. TEST A% = 4
  44. IF NO JUMPTO TH
  45. CONCAT Z$,Wednesday
  46. JUMPTO CONTINUE
  47.  
  48. :TH
  49. TEST A% = 5
  50. IF NO JUMPTO FR
  51. CONCAT Z$,Thursday
  52. JUMPTO CONTINUE
  53.  
  54. :FR
  55. TEST A% = 6
  56. IF NO JUMPTO SA
  57. CONCAT Z$,Friday
  58. JUMPTO CONTINUE
  59.  
  60. (No need to test for A% = 7; it's the last choice!)
  61. :SA
  62. CONCAT Z$,Saturday
  63. (No need for a "JUMPTO CONTINUE", we just need to continue on... )
  64.  
  65. :CONTINUE
  66.  
  67. (Check to see if the Close box was clicked in)
  68. IF CLOSEUW JUMPTO CLOSEWIND
  69.  
  70. (Update the window)
  71. UWUPDATE
  72. (Pause about a second to slow window flicker)
  73. (Running MultiFinder & other applications will slow flicker also)
  74. PAUSE 60
  75.  
  76. JUMPTO LOOPSTART
  77.  
  78. :CLOSEWIND
  79. UWCLOSE
  80. (SCREEN ON    -Optional-    Don't forget SCREEN ON after SCREEN OFF)
  81. END
  82.